home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpdial.arc / SANJOSE.CMD < prev    next >
OS/2 REXX Batch file  |  1987-12-27  |  3KB  |  192 lines
  1. ASSI S7"    "
  2. ASSI S0" "
  3. ASSI S1"SAN JOSE, CA  [408, 415]"
  4. BEGIN:
  5. CLEA
  6. LOCA 4,0
  7. MESS"                         ╔══╡   SAN JOSE NUMBERS  ╞══╗"
  8. MESS"                         ║                           ║"
  9. MESS"                         ║  A - Comuter Tyme         ║"
  10. MESS"                         ║  B - Net Works            ║"
  11. MESS"                         ║  C -                      ║"
  12. MESS"                         ║  D - Dyanmic Resources    ║"
  13. MESS"                         ║  E - Pub Dom Soft Exchnge ║"
  14. MESS"                         ║  F - PDS - SIG            ║"
  15. MESS"                         ║  G - PC Shareware BBS     ║"
  16. MESS"                         ║  H - Space BBS            ║"
  17. MESS"                         ║  I - Business Board       ║"
  18. MESS"                         ║  M - Manual Dial          ║"
  19. MESS"                         ║  Q - Return to MAIN menu  ║"
  20. MESS"                         ║                           ║"
  21. MESS"                         ╠═══════════════════════════╣"
  22. MESS"                         ║ ENTER YOUR CHOICE(S):     ║"
  23. MESS"                         ║                           ║"
  24. MESS"                         ╚═══════════════════════════╝"
  25. LOCA 20,27
  26. GET S0
  27. TOP:
  28. FIND S0"A"
  29. IF FOUN
  30. ASSI S6"Computer Tyme"
  31. ASSI S8"7322187"
  32. GOSU REDIALER
  33. ELSE
  34. ENDI
  35. FIND S0"B"
  36. IF FOUN
  37. ASSI S6"Net Works"
  38. ASSI S8"2275416"
  39. GOSU REDIALER
  40. ELSE
  41. ENDI
  42. FIND S0"C"
  43. IF FOUN
  44. ASSI S6"                  "
  45. ASSI S8"       "
  46. GOSU REDIALER
  47. ELSE
  48. ENDI
  49. FIND S0"D"
  50. IF FOUN
  51. ASSI S6"Dyanamic Resources"
  52. ASSI S8"9729750"
  53. GOSU REDIALER
  54. ELSE
  55. ENDI
  56. FIND S0"E"
  57. IF FOUN
  58. ASSI S6"Public Domain Software Exchange"
  59. ASSI S8"7357190"
  60. GOSU REDIALER
  61. ELSE
  62. ENDI
  63. FIND S0"F"
  64. IF FOUN
  65. ASSI S6"PDS - SIG"
  66. ASSI S8"2704085"
  67. GOSU REDIALER
  68. ELSE
  69. ENDI
  70. FIND S0"G"
  71. IF FOUN
  72. ASSI S6"PC Shareware BBS"
  73. ASSI S8"2704084"
  74. GOSU REDIALER
  75. ELSE
  76. ENDI
  77. FIND S0"H"
  78. IF FOUN
  79. ASSI S6"Space BBS"
  80. ASSI S8"4159649039"
  81. GOSU REDIALER
  82. ELSE
  83. ENDI
  84. FIND S0"I"
  85. IF FOUN
  86. ASSI S6"Business Board"
  87. ASSI S8"2262827"
  88. GOSU REDIALER
  89. ELSE
  90. ENDI
  91. FIND S0"M"
  92. IF FOUN
  93. CLEA
  94. LOCA 5,20
  95. MESS"NUMBER TO DIAL:"
  96. LOCA 5,36
  97. ASSI S6"MANUAL DIAL"
  98. GET S8
  99. GOSU REDIALER
  100. ELSE
  101. ENDI
  102. FIND S0"Q"
  103. IF FOUN
  104. CLEA
  105. TRAN"!@!"
  106. WAIT"@"
  107. TRAN"D!"
  108. WAIT"@"
  109. CLEA
  110. LOCA 1,0
  111. PAUS 1
  112. EXEC"SELCITY.CMD"
  113. ELSE
  114. ENDI
  115. FIND S7"MORE"
  116. IF FOUN
  117. ASSI S7"    "
  118. GOTO TOP
  119. ELSE
  120. ENDI
  121. MESS"ALL NUMBERS IN DIALING QUEUE FAILED TO ANSWER"
  122. MESS"RETURNING TO MAIN MENU"
  123. ALAR
  124. ASSI S0"Q"
  125. GOTO TOP
  126. REDIALER:
  127. CLEA
  128. ISFI S6
  129. IF NOT SUCC
  130. LOCA 5,35
  131. MESS"DIALING"
  132. MESS" "
  133. MESS S6
  134. MESS S8
  135. TRAN"I!"
  136. PAUS 1
  137. TRAN"ATZ!"
  138. WAIT"OK"
  139. TRAN"^E!"
  140. WAIT"READY"
  141. TRAN"D"
  142. TRAN S8
  143. TRAN"!"
  144. RGET S9
  145. RGET S9 80 40
  146. RGET S9 40 40
  147. RGET S9 40 40
  148. GOTMESS:
  149. FIND S9"BUSY"
  150. IF FOUN
  151. MESS S6
  152. MESS S8
  153. MESS"BUSY; GOING TO NEXT NUMBER"
  154. MESS"******************************************************************"
  155. ASSI S7"MORE"
  156. GOTO RTRN
  157. ENDI
  158. FIND S9"ANSWER TONE"
  159. IF FOUN
  160. SET PARI NONE
  161. SET DATA 8
  162. CLEA
  163. MESS"CONNECTED TO"
  164. MESS S8
  165. MESS S6
  166. MESS S1
  167. ALAR
  168. EXIT
  169. ELSE
  170. FIND S9"RINGING"
  171. IF FOUN
  172. RGET S9
  173. FIND S9"RINGING"
  174. IF FOUN
  175. LOG OPEN S6
  176. MESS"NO ANSWER - STILL RINGING"
  177. MESS S8
  178. MESS S6
  179. MESS S1
  180. LOG CLOSE
  181. TRAN"^C^D^C"
  182. MESS"*****************************************************************"
  183. GOTO RTRN
  184. ELSE
  185. GOTO GOTMESS
  186. ENDI
  187. ENDI
  188. ENDI
  189. ENDI
  190. RTRN:
  191. RETURN
  192.